home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Zini.AMOS / Zini.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1994-03-12  |  744 b   |  34 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *              Zini V1.0            *  
  4. ' *      Written by Chris Hodges      *  
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Screen Open 0,320,200,16,0
  9. Curs Off : Flash Off : Cls 0 : Hide 
  10. Double Buffer 
  11. Screen Swap 
  12. For A=1 To 15
  13.   Colour A,A*$110
  14. Next 
  15. D=15 : AN=D*2-1
  16. Dim P(AN)
  17. Bob Update Off 
  18. Autoback 0
  19. For A=0 To D
  20.   Set Bob A,1,%1111,
  21. Next 
  22. Limit Mouse 
  23. A=0
  24. Do 
  25.   X=X Mouse-128 : Y=Y Mouse-50 : P(A)=X
  26.   Add A,1,0 To AN : P(A)=Y : Add A,1,0 To AN
  27.   Bob Clear : B=A : Add B,-2,0 To AN-1
  28.   For C=D To 0 Step -1
  29.     Bob C,P(B)-C*2,P(B+1)+C,C
  30.     Add B,-2,0 To AN-1
  31.   Next 
  32.   Bob Draw : Screen Swap : Wait Vbl 
  33. Loop 
  34. End